home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 24
/
Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso
/
Aminet
/
biz
/
dopus
/
WolleDOpus.lha
/
wolledopus
/
dopus5
/
arexx
/
DiskStart.dopus5
< prev
next >
Wrap
Text File
|
1997-11-18
|
1KB
|
46 lines
/*
$VER: DiskStart.dopus5 V0.98 (29.10.1997) © Marco Wollkopf
E-Mail: Marco.Wollkopf@t-online.de
Homepage: http://home.t-online.de/home/Marco.Wollkopf
Falls auf einem eingelegten Datenträger das DOS-Script s/Startup
oder das ARexx-Script s/Startup.rexx vorhanden sind werden diese ausgeführt.
Einstellungen:
Einstellungen»Scripte»Disk eingelegt
-----------------------------------------------
[ARexx] DOpus5:ARexx/DiskStart.dopus5 {Qp} {Qa}
-----------------------------------------------
*/
options results
parse arg port disk
IF port ~= "" THEN
ADDRESS value(port)
ELSE DO
say "Script muß von DirOpus aufgerufen werden"
exit
END
IF disk ~= "" THEN DO
disk = strip(strip(disk,'b',' '),'b','"')
IF exists(disk||'s/startup') THEN DO
kommando = disk||'S/Startup'
dopus request '"'"Soll das Script "||kommando||" ausgeführt werden?"'" _Ausführen|_nicht Ausführen'
if rc = 0 then nop
else
address command execute kommando
END
IF exists(disk||'s/startup.rexx') THEN DO
kommando = disk||'S/Startup.rexx'
dopus request '"'"Soll das Script "||kommando||" ausgeführt werden?"'" _Ausführen|_nicht Ausführen'
if rc = 0 then nop
else
address command rx kommando
END
END
ELSE NOP